home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / gfx / 3d / irit50src.lha / irit5 / scripts / primitiv.irt < prev    next >
Encoding:
Text File  |  1993-12-30  |  1.5 KB  |  44 lines
  1. #
  2. # Display of all primitives of the system:
  3. # BOX, GBOX, CONE, CYLIN, SPHERE, TORUS
  4. #
  5. #                Created by Gershon Elber,    Dec. 88
  6. #
  7.  
  8. save_mat = view_mat;
  9. view_mat = view_mat * scale(vector( 0.5, 0.5, 0.5 ));
  10. axes15 = axes * scale(vector(1.5, 1.5, 1.5));
  11.  
  12. interact(list(view_mat, axes15,
  13.           box(vector(-0.5, -0.5, -0.5), 1.0, 1.0, 1.0),
  14.           gbox(vector(-0.25, -0.25, -0.25), vector( 1.1, 0.1, 0.2),
  15.             vector( 0.4, 0.9, 0.2), vector( 0.3, 0.05, 1.4))));
  16.  
  17. interact(list(view_mat, axes15,
  18.           cone(vector(-0.5, 0.0, 0.0), vector(-0.5, 0.0, 0.0), 0.5),
  19.           cone(vector( 0.5, 0.0, 0.0), vector( 0.5, 0.0, 0.0), 0.5),
  20.           cone(vector( 0.0,-0.5, 0.0), vector( 0.0,-0.5, 0.0), 0.5),
  21.           cone(vector( 0.0, 0.5, 0.0), vector( 0.0, 0.5, 0.0), 0.5),
  22.           cone(vector( 0.0, 0.0,-0.5), vector( 0.0, 0.0,-0.5), 0.5),
  23.           cone(vector( 0.0, 0.0, 0.5), vector( 0.0, 0.0, 0.5), 0.5)));
  24.  
  25. interact(list(view_mat, axes15,
  26.           cylin(vector(-0.8, 0.0, 0.0), vector(-0.5, 0.3, 0.3), 0.3),
  27.           cylin(vector( 0.8, 0.0, 0.0), vector( 0.8, 0.0, 0.0), 0.3),
  28.           cylin(vector( 0.0,-0.8, 0.0), vector( 0.1,-0.5, 0.2), 0.3),
  29.           cylin(vector( 0.0, 0.8, 0.0), vector( 0.0, 0.8, 0.0), 0.3),
  30.           cylin(vector( 0.0, 0.0,-0.8), vector( 0.4, 0.2,-0.5), 0.3),
  31.           cylin(vector( 0.0, 0.0, 0.8), vector( 0.0, 0.0, 0.8), 0.3)));
  32.  
  33.  
  34. interact(list(view_mat, axes15, sphere(vector( 0.0, 0.0, 0.0), 0.5)));
  35.  
  36.  
  37. interact(list(view_mat, axes15, torus(vector( 0.0, 0.0, 0.0),
  38.                       vector( 0.1, 0.2, 1.0), 0.5, 0.2)));
  39.  
  40.  
  41. free(axes15);
  42.  
  43. view_mat = save_mat;
  44.